home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
win
/
pascal
/
player.exe
/
CDUNIT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-06
|
1KB
|
38 lines
unit CDUnit;
interface
uses
WinTypes;
function OpenCD(PWindow: HWnd): Boolean;
procedure SetMSFasFormat;
procedure SetTMSFasFormat;
procedure PlayMciCD(StartTrack,EndTrack:Byte);
function GetNumTracks: LongInt;
procedure GetTrackLength(TrackNum: LongInt;var Min, Sec, Frame: Byte);
function StopMci: Boolean;
function CloseMci: Boolean;
function HasDiskInserted: Boolean;
function GetDeviceID: Word;
procedure PlayCDOneTrack(StartTrack:Byte);
function GetMode: LongInt;
function GetCurrentCDTrack: LongInt;
function GetLocation: LongInt;
implementation
function OpenCD; external 'CDINFO' index 1;
procedure SetMSFasFormat; external 'CDINFO' index 2;
procedure SetTMSFasFormat; external 'CDINFO' index 3;
procedure PlayMciCD; external 'CDINFO' index 4;
function GetNumTracks; external 'CDINFO' index 5;
procedure GetTrackLength; external 'CDINFO' index 6;
function StopMci; external 'CDINFO' index 7;
function CloseMci; external 'CDINFO' index 8;
function HasDiskInserted; external 'CDINFO' index 9;
function GetDeviceID; external 'CDINFO' index 10;
procedure PlayCDOneTrack; external 'CDINFO' index 11;
function GetMode; external 'CDINFO' index 12;
function GetCurrentCDTrack; external 'CDINFO' index 13;
function GetLocation; external 'CDINFO' index 14;
end.